home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 246 / 246.d81 / b.return of sm (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  2KB  |  51 lines
  1. 5 poke53281,0:poke53280,0: print"[147]"
  2. 10 dv=peek(186):ifdv<8thendv=8
  3. 20 gosub41000
  4. 30 q$=chr$(34):print"[144]load"q$"sammy title.pkd"q$","dv
  5. 35 print"run":print"[154]     [196]oes [206][207][212] [210]eturn to [204][207][193][196][211][212][193][210]"
  6. 36 print"     [207]nly runs from drive #8."
  7. 40 print"        [208]ress <[209]> to [209]uit now[158]"
  8. 41 forx=0to5:reada$:printtab(19-len(a$)/2)a$:next
  9. 44 getz$:ifz$<>""then49
  10. 45 q=q+1:ifq<30then44
  11. 46 q=0:poke646,(peek(646)+8)and15:printtab(19-len(a$)/2)a$:goto44
  12. 49 print"[144]":ifz$="q"then40000
  13. 50 ifdv<>8then500
  14. 51 poke631,13:poke632,13:poke198,2:end
  15. 500 print"[147]         [205]ust be on [196]rive 8"
  16. 502 print"      [208]ress any [203]ey for [204][207][193][196][211][212][193][210]
  17. 504 [151]198,0:[146]198,1:[161]z$:[137]40000
  18. 9999 [128]
  19. 10000 d[178][194](186):n$[178]"0:b.return of sm":[159]15,d,15,"s"[170]n$:[160]15:[148]n$,d:[128]
  20. 40000 [151]53280,0:[151]53281,0:[151]53265,27:dv[178][194](186):q$[178][199](34):[153]"loadstop";
  21. 40010 a$[178]"hello connect":r$[178][199](13)[170]"r(NULL)"[170][199](13):q$[178][199](34)
  22. 40020 [160]2:[159]2,dv,2,a$:[161]#2,b$:[160]2:[139]st[178]0[167]40050
  23. 40030 [159]15,dv,15,"i0":[132]15,en:[160]15
  24. 40035 [151]53280,14:[151]53281,6:[153]"loadcont"
  25. 40040 [151]44,8:[151]8[172]256,0:[151]55,0:[151]56,160:[156]:[162]
  26. 40050 [153]"load"q$a$q$","dv""
  27. 40055 [129]x[178]1[164]4:[151]630[170]x,[198]([202](r$,x)):[130]:[151]198,4:[137]40040
  28. 41000 [151]53280,0:[151]53281,0:[151]53272,22:[153]"load"
  29. 41002 [151]214,14:[153]
  30. 41004 [153][163]1)"list                                     "
  31. 41005 [129]x[178]1[164]6
  32. 41006 [153][163]1)"print#                                     "
  33. 41007 [130]
  34. 41013 [153][163]1)"poke                                     "
  35. 41020 [129]x[178]1[164]4:[135]a$:[151]214,15[170]x:[153]
  36. 41022 [153][163]19[171][195](a$)[173]2)"print#"a$
  37. 41024 [130]
  38. 41030 t[178]ti[170]60
  39. 41031 [139]t[177]ti[167]41031
  40. 41032 [153]"":[142]
  41. 41045 [131]"(NULL)he (NULL)eturn of (NULL)ammy (NULL)arlo ((NULL)2)
  42. 41047 data"by [210]ichard [202]. [196]erocher"
  43. 41052 data"(c) 2006 by [202] & [198] [208]ublishing, [201]nc.
  44. 41053 [131]"www.eloadstar.com
  45. 50000 data"[158][215]hen asked for a [198][201][204][197] [206][193][205][197], "
  46. 50001 data"type and [197]nter:"
  47. 50002 data""
  48. 50003 data"[211][193][205][205][217]"
  49. 50004 data""
  50. 50005 data"[208]ress a [203]ey to [195]ontinue[145]"
  51.